home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / time trial (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  53 lines
  1. 5 poke53269,0:gosub 6000
  2. 6 :
  3. 7 :
  4. 8 rem the following lines are original
  5. 9 :
  6. 10 print"[147]";:v=53248:s=54272:pokev+32,9:pokev+33,0:rem 64 timetrial - s.glazer
  7. 20 fort=832to958:poket,-255*(abs(t-881.5)<41):next:poke2040,13:poke2041,14
  8. 30 x=52:y=136:pokev+27,2:pokev+21,3:pokev+29,2:pokev+39,4:pokev+40,5:pokev+2,42
  9. 40 pokev+3,128:pokev+21,3:q=peek(v+31):print"[159]0":t$="[149]                "
  10. 50 t$=t$+"      ":u$=left$(t$,20):printtab(12)u$:fort=1to10:printtab(10)t$
  11. 60 next:printtab(12)u$:pokes+24,15:pokes+6,240:pokes+4,49:ti$="000000"
  12. 70 pokev+1,y:pokev+16,x/256:pokev,x-peek(v+16)*256:q=peek(v+30)=peek(v+31)
  13. 80 print""tab(18)int(ti/6)/10:j=peek(56320):f=9*(abs(a)+abs(d))
  14. 85 iff>255thenf=255
  15. 90 d=d+((jand1)=0)-((jand2)=0):a=a+((jand4)=0)-((jand8)=0):x=x+a:y=y+d:pokes,f
  16. 100 ifpeek(v+31)and1orx<24ory<47ory>229orx>320thenpokev+39,1:a=0:d=0:pokev+39,4
  17. 110 ifc*peek(v+30)thenc=0:l=l+1:pokes-v,48+l:ifl=3then200
  18. 120 c=c+(x>278)*(abs(y-160)<10):goto70
  19. 130 :
  20. 131 :
  21. 132 :
  22. 133 rem the following lines are added
  23. 134 :
  24. 135 :
  25. 136 :
  26. 200 print"[199][193][205][197] [207][214][197][210] : [196]o you want to play again?":poke53269,0
  27. 201 geta$:ifa$="y"ora$="[217]"thenrun10
  28. 202 ifa$="n"ora$="[206]"then 300
  29. 225 goto 201
  30. 300 poke53269,.:poke54296,.
  31. 301 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  32. 302 ifer<>63thenprint"[147]":end
  33. 305 load"one-screen winners",8
  34. 6000 poke53280, 0:poke53281, 0:print"[147]";
  35. 6001 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  36. 6002 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  37. 6003 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  38. 6004 print"[172]                    [146][187]"
  39. 6005 print"                      "
  40. 6006 print"                      "
  41. 6007 print"[163][163][163][163][163][163][163][163][163][160] T I M E  T R I A L  [146][163][163][163][163][163][163][163][163][163][160]               ";
  42. 6008 print"     [160]"
  43. 6009 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]     By S. Glaze";
  44. 6010 print"r    [160]"
  45. 6011 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
  46. 6012 print"      "
  47. 6013 print"[188]                    [146][190]"
  48. 6014 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  49. 6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  50. 6016 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  51. 6020 geta$:ifa$<>" "then6020
  52. 6030 print"[147]":return
  53.